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-- BcdFileLookup.Mesa; edited by Johnsson on April 13, 1978 8:06 AM 

DIRECTORY 

AUoFileDefs: FROM "altof iledef s\ 
BcdControlDefs: FROM "bcdcontroldef s", 
BcdDefs: FROM "bcddefs", 
BcdFileDefs: FROM "bcdf iledef s\ 
BcdTabDefs: FROM "bcdtabdef s M , 
BcdUtilDefs: FROM "bcdutildef s" , 
DirectoryDefs: FROM "directorydefs" , 
MiscDefs: FROM "miscdefs", 
SegmentDefs: FROM "segmentdefs", 
StringDefs: FROM "stringdef s f \ 
SystemDefs: FROM "systemdef s", 
TableDefs: FROM "tabledefs"; 

BcdFileLookup: PROGRAM 

IMPORTS BcdTabDefs, BcdUtilDefs, DirectoryDefs, MiscDefs, SegmentDefs, StringDefs, SystemDefs, TableD 
**efs 

EXPORTS BcdFileDefs, BcdControlDefs ■ 

BEGIN 

FP: TYPE « AUoFileDefs. FP; 

Substring: TYPE « StringDefs. Substring; 

SubStringDescriptor : TYPE ■ StringDefs. SubStr ingDescriptor ; 

fileArray: DESCRIPTOR FOR ARRAY OF SegmentDefs . FileHandle; 
maxFiles: CARDINAL - 256; 

ftb, stb: TableDefs. TableBase; 

Notifier: TableDefs. TableNotif ier - 
BEGIN OPEN BcdDefs; 
ftb «- base[fttype]; 
stb «- base[sttype]; 
END; 

LookupFileTable: PUBLIC PROCEDURE - 
BEGIN OPEN BcdDefs; 
ssl: SubStringDescriptor; 
i: CARDINAL; 
bed: Substring « @ssl; 
ftb: TableDefs. TableBase; 
ftLimit: FTIndex; 
filesToFind: CARDINAL; 

checkone: PROCEDURE [fp: POINTER TO FP, name: STRING] RETURNS [BOOLEAN] - 
BEGIN 

i: CARDINAL; 

dirName: SubStringDescriptor; 
fti: FTIndex; 
found: BOOLEAN <- FALSE; 
hti: BcdTabDefs. HTIndex; 
n: NameRecord; 
dirName. base «- name; 
FOR i IN [0. .name. length) DO 
IF name[i] ■ '• THEN 
BEGIN 

IF name.length-i # 5 THEN EXIT; 
dirName. offset ♦- i+1; dirName. length ♦- 3; 

IF -StringDefs. EquivalentSubStrings[@dirName, bed] THEN EXIT; 
dirName. off set <- 0; dirName . length «- i; 
[found, hti] ♦■ BcdTabDefs. FindEquivalentString[@dirName]; 
EXIT 
END; 
ENDLOOP; 
IF -found THEN 
BEGIN 

dirName. offset «- 0; 

dirName. length <- name.length-1; -- remove '. 
[found, hti] ♦■ BcdTabDefs. FindEquivalentString[0dirName]; 
END; 

IF -found THEN RETURN[FALSE]; 
n <- BcdUtilDefs. NameForHti[hti] ; 
i - 0; 
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FOR fti <- FIRST[FTIndex], f ti+SIZE[FTRecord] UNTIL fti ■ ftLimlt DO 
IF fileArray[i] - NIL THEN 
BEGIN 

IF (ftb+fti).name - n THEN 
BEGIN OPEN SegmentDefs; 

LockFile[fileArray[i] <- InsertFi1e[f p, Read]]; 
filesToFind <- filesToFind - 1; 
EXIT; 
END; 
END; 
i «• i + 1; 
ENDLOOP; 
RETURN[filesToFind-0] 
END; 

bcdt <- [base: "bcd"L, offset: 0, length: 3]; 

[ftb,LOOPHOLE[ftLimit, CARDINAL]] *• TableDef s . TableBounds[f ttype]; 
filesToFind «- LOOPHOLE[ftLimit,CARDINAL]/SIZE[FTRecord]; 
FOR i IN [0..LENGTH[f ileArray]) DO 

IF fileArray[i] ft NIL THEN filesToFind <- filesToFind - 1; 

ENDLOOP; 
DirectoryDefs.EnumerateDirectory[checkone]; 
END; 

UnknownFile: PUBLIC ERROR [fti: BcdDef s .FTIndex] « CODE; 

HandleForFile: PUBLIC PROCEDURE [fti: BcdDef s . FTIndex] 
RETURNS [file: SegmentDefs . FileHandle] - 
BEGIN 

index: CARDINAL » LOOPHOLE[f ti ,CARDINAL]/SIZE[BcdDef s. FTRecord]; 
IF index >- LENGTH[f ileArray] OR (file <- f ileArray[index]) « NIL THEN 

ERROR UnknownFile[fti]; 
RETURN 
END; 

AddFile: PROCEDURE [hti : BcdTabDef s .HTIndex] RETURNS [fti: BcdDef s. FTIndex] 
BEGIN OPEN BcdDef s; 

ftLimit: FTIndex * LOOPHOLE[TableDefs.TableBounds[f ttype]. size] ; 
name: NameRecord *- BcdUtilDef s .NameForHti[hti]; 
FOR fti «- FIRST[FTIndex], f ti+SIZE[FTRecord] UNTIL fti-ftLimit DO 

IF (ftb+fti).name - name THEN RETURN; 

ENDLOOP; 
fti 4- TableDefs.Allocate[fttype,SIZE[FTRecord]]; 
(ftb+fti)t ♦- [name: name, 

version: [time: [0,0], zapped: FALSE, net: 0, host: 0]]; 
RETURN 
END; 

BuildFileTable: PUBLIC PROCEDURE ■ 
BEGIN OPEN BcdDefs, BcdTabDefs; 
sti, stLimit: STIndex; 
fti: FTIndex; 

TableDefs.AddNotify[Notifier]; 

stLimit <- LOOPHOLE[TableDefs.TableBounds[sttype].size]; 
FOR sti <- FIRST[STIndex], sti+SIZE[STRecord] UNTIL sti-stLimit DO 
WITH s:stb+sti SELECT FROM 
external ■> 

WITH p:s SELECT FROM 
file -> 

IF p. fti - FTNull THEN 

BEGIN fti <- AddFile[s.hti]; p. fti 4- fti END; 
ENDCASE; 
ENDCASE; 
ENDLOOP; 
f ileArray *- DESCRIPTOR[SystemDef s .Al locateSegment[maxFiles] ,maxFiles]; 
Mi scDefs.SetBlock[BASE[f ileArray], NIL, LENGTH[f ileArray]]; 
LookupFileTable[]; 
TableDefs.DropNotify[Notifier]; 
RETURN 
END; 

EraseFileTable: PUBLIC PROCEDURE ■ 
BEGIN OPEN SegmentDefs; 
i: CARDINAL; 
f: FileHandle; 
FOR i IN [0..LENGTH[f ileArray]) DO 
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IF (f<-fi1eArray[i]) # NIL THEN 

BEGIN Un1ockFi1e[f]; IF f.segcount ■ THEN Re1easeFi1e[f ] END; 

ENDLOOP; 
SystemDefs.FreeSegment[BASE[fileArray]]; 
END; 

END... 



